﻿Public Class FrmModifMdp
    Dim macnx As New PPE3.ClassMySqlConnect("853339_depanneur", "071064")
    Dim MDP As String

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If tbNew.Text = tbCNew.Text Then
            If tbNew.Text <> MDP Then
                If tbOld.Text = MDP Then
                    If MessageBox.Show("Etes vous sur de vouloir changer votre Mot de passe ?", "WARNING", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                        macnx.Se_Connecter_MySqlServer()

                        macnx.Executer_Requete_Action("UPDATE compte SET MDPCompte = '" & tbCNew.Text & "'  WHERE NomCompte like '" & lblUser.Text & "' ")

                        macnx.Se_Deconnecter_MySqlServer()
                    End If

                Else
                    MessageBox.Show("L'ancien mot de passe n'est pas le bon .")
                End If


            Else
                MessageBox.Show("Vous ne pouvais pas metre un nouveau mot de passe identique a l'ancien")
            End If
        Else
            MessageBox.Show("Le nouveau mot de passe et celui de conformation ne sont pas identique !")
        End If
    End Sub

    Private Sub FrmModifMdp_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.MdiParent = FrmStart
        Me.CenterToScreen()
        lblUser.Text = FrmStart.MenuIdent.Text
        macnx.Se_Connecter_MySqlServer()
        MDP = macnx.ExecuteScalar("SELECT MDPCompte FROM compte WHERE NomCompte like '" & lblUser.Text & "' ")
        macnx.Se_Deconnecter_MySqlServer()
    End Sub
End Class